home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Critical Thinking Skills / Workplace Effectiveness: Critical Thinking Skills.iso / pc / Files / Main.dxr / 00002_Main navigation handlers.ls < prev    next >
Encoding:
Text File  |  1998-09-17  |  844 b   |  54 lines
  1. global gMasterData, gPrompter
  2.  
  3. on enterLeafMenu
  4.   go(label("Main"))
  5.   bkgrdMusic(gMasterData)
  6.   setPrompter()
  7. end
  8.  
  9. on exitLeafMenu
  10.   set the timeoutScript to EMPTY
  11. end
  12.  
  13. on nextMovie
  14.   stopSounds()
  15.   exitLeafMenu()
  16.   if gPrompter = 0 then
  17.     set gPrompter to 1
  18.   end if
  19.   cursor(4)
  20.   case the clickOn of
  21.     3:
  22.       go(1, "Define")
  23.     4:
  24.       go(1, "Island1")
  25.     5:
  26.       go(1, "Island2")
  27.     6:
  28.       go(1, "Skilluse")
  29.   end case
  30. end
  31.  
  32. on setPrompter
  33.   set the timeoutLength to 30 * 60
  34.   if voidp(gPrompter) then
  35.     set gPrompter to 0
  36.   end if
  37.   case gPrompter of
  38.     0:
  39.       set the timeoutScript to "clickDummy1"
  40.     1:
  41.       set the timeoutScript to "clickDummy2"
  42.   end case
  43. end
  44.  
  45. on clickDummy1
  46.   puppetSound("prompt1")
  47.   set the timeoutScript to EMPTY
  48. end
  49.  
  50. on clickDummy2
  51.   puppetSound("prompt2")
  52.   set the timeoutScript to EMPTY
  53. end
  54.